home *** CD-ROM | disk | FTP | other *** search
/ Animations / Animations CD.iso / mainactor / rexx / convert.ma next >
Text File  |  1993-12-04  |  3KB  |  88 lines
  1. /*
  2.  *        Convert V1.1, 1993 Markus Moenig
  3.  *
  4.  *        Converts the source project to the format selected by the 
  5.  *        source modules saver module.
  6.  *
  7.  *        You will be asked for the name of the new animation/picture list.
  8.  *
  9.  *        If an animation has to be build, it will get the 
  10.  *        loop and cpf status of the source.
  11.  *
  12.  *        The new project will then be loaded into a new project window.
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. ADDRESS MAINACTOR
  18.  
  19. ScreenToFront                              /* flip screen to front */ 
  20.  
  21.                                            /* print message */
  22.  
  23. PrintAndStoreTXT "Convert V1.1, converting project ..."
  24.  
  25. GetSPName
  26.  
  27. IF rc = 0 THEN DO                          /* check if project loaded */
  28.  
  29.     PARSE VAR RESULT firstname secondname .  /* store name of the animation */
  30.                                              /* or the names of the picture list */
  31.  
  32.     GetSPLoader
  33.     PARSE VAR RESULT loadertype loadername . /* store type, name of loader module */
  34.  
  35.     GetSPSaver
  36.     PARSE VAR RESULT savertype savername .   /* store type, name of saver module */
  37.  
  38.                                            /* Store general infos of the project */
  39.     GetSPInfo
  40.     PARSE VAR RESULT width height colors pics caching loop cpf .
  41.  
  42.     RequestSaveFile "Select Name of Project" /* Ask for Project Name */
  43.  
  44.     IF RC = 10 THEN DO
  45.         PrintTXT "Aborting ..."
  46.         EXIT
  47.     END
  48.  
  49.     newname = RESULT                         /* new name = RESULT */
  50.  
  51.     SelectAll                                /* select all frames/pictures */
  52.  
  53.                                            /* Build arguments for Save function */
  54.  
  55.     saveargs=newname || " " || cpf || " " || loop
  56.     
  57.     Save saveargs                            /* Build new animation with */
  58.                                            /* arguments of the old one */
  59.                                            /* If new project is a picture list */
  60.                                            /* cpf and loop will be ignored */
  61.  
  62.     IF caching = "CACHING=YES" THEN                 /* Was the old project cached ? */
  63.         
  64.         OpenNewProject "CACHING"               /* If yes new project is also cached */
  65.     
  66.     ELSE 
  67.         
  68.         OpenNewProject                         /* If not new project is not cached */
  69.     
  70.     SetSPLoader savertype savername          /* Set the new projects loader module */
  71.                                            /* to the old projects saver module */
  72.  
  73.     if savertype = "ANIM" THEN DO            /* If new project is an anim project */
  74.     
  75.         LoadProject newname                    /* Load animation */
  76.     
  77.     END
  78.     
  79.     ELSE DO                                  /* if new project is a pic list */
  80.                                            /* generate names of first and last pic */    
  81.         firstpic=newname || "." || Right("00000" || 1, 5)
  82.         lastpic=newname || "." || Right("00000" || pics, 5)
  83.  
  84.         LoadProject firstpic lastpic           /* Load picture list */
  85.  
  86.     END
  87. END
  88.